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ODP-1779-77 
2 September 1977 


Mr. C. David Evans 

GIM-II Project Manager 

United States Department of Justice 
Federal Bureau of Investigation 
Washington, D.C. 20535 


Dear Mr. Evans: 


Documentation and Sample Job Control 
Language for Various Load Modules 


Enclosed is documentation and sample Job Control Language 
(JCL) for some of the load modules in the GIM load library. 
Using the list that you sent us, we determined what modules 
are obsolete, what ones are utility programs {independent of 
the GIM software), and so forth. The following paragraph briefly 
summarizes the purpose of each of these programs and their 
current status. Documentation and sample JCL has been supplied 
only for those modules that are not obgolete and that can be 
used by your installation as an independent utility. Please 
remember that the JCL is a Sample and except for DD names, 
should be checked and modified for your system specifications. 


ANALZE is a PL/I program that prepares a file for use by 
the PL/I programs RPTA, RPTB, RPTC, RPTD, RPTE, and RPTF. 
The result of executing this stream is a series of reports 
which analyze the GIM software from different aspects. 
Illustration 1 is samole JCL and documentation for these modules. . 


ASMBLR A is an alias for the GIM assembler, GMA2, which 
also resides in the load library. 


The Communication Access Method (CAM) modules (CAMCOMMN, 
CAMDD, CAMHETRA, CAMNET, CAMTI) are the terminal support 
routines for the GIM-II system. These programs are essential 
to the software and are not utility routines. 


The following modules were written by TRW. We are not 
using them at present; CARDCOPY, PDSPTPCH, SYSREPRO, TPPRINT. | 

CATALOG A is an alias for LOCATEX which also resides in 
the load library. This routine is used by the CATALOG-~LOCATE 
option of the GIM-II system and is not a utility. 
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EXEC2 is the current executive controller of the GIM-II 
Software. EXECO was a test executive and is obsolete. 


GAS, GIMS Accounting System, is an assembly language 
program which we are discontinuing. SMFGIMRP is the reporting 
part of this project. 


GIMANAL is a PL/I program that analyzes a GIM data base. 
Illustration 2 is sample JCL and detailed documentation for 
this module. 


GIMPUNCH is a PL/I program that punches transactions off 
of a GIM history tape. Illustration 3 is sample JCL and 
documentation for this module. 


GIMRSTOR is a PL/I program that restores a GIM data base 
from a GIM ddump physical tape. Illustration 4 is sample JcL 
and documentation for this module. 


PPSLIST is a PL/I program that prints a cross reference © 
listing of all the modules used by the GIM-II software. 
Illustration 5 is sample JCL and decumentation for this module. 

SYSCHOP is an obsolete program. 

VTOCLIST is an in-house utility program that prints a 
table of contents and track allocation map for a disk pack. 

The output is self-explanatory. Sample JCL is included as 
illustration 6. 


Sincerely yours, 


= aad 


Central Intelligence Agency 


STATINTU 
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J/*®EETRST FOCGRAM FCR RUNNING THE ANALYSIS SERTES 


/ [x 


J / 2A RRS RE 
4/ SXEC PGM= TFRPTPCH,PEGIGN=L2Z4K 


fd 


PISYSPRINT AN SYSOUTHA | 


//SYSUTL OF CIsps= SHE» OSN=GIMZ2eSQURCE» 


J/ 


wt POVSUT ZOD NI Ts SYSO* DI SP= (NEM yPASS) -OSN=8GHI THERE » 


Th SPELLS 


PUNTE TYPO2G= PO 


/* 


OC R=(RECEMEER BLKST ZE=3520,LRECL=89) 


=(CYL,(96, 94),OC B= (RECFM=F, PLKSIZ£=81 
//SYSIN ON x 


S/GO EXEC PSMEANALZE ,REGIGN=L24K TIMe=4 


//STFPLIB DD OSes SHR yD &N= GIMZ.LSAD.. 


4/G2.SYSPSIAT FD SYS OUT= A 
//GO.4STUFE YD OSNSGEHI THERE VOI SPH=(CLO,LELETE, DELETE) 


J/G INST PP DISP=SH? yDEN=GIN2.MACLIBCINST) tas 

//GO.SPECTAL OD DISPSSHR»NSN=GIM2.MACLIS(SPECIAL) © ©=©=— OS 
7/G2.P 455 AD UMTT= (TAPE, QEFER) ,OSN=GIM?2 
7/ DUS P= (NEw, KEEP } p DCB=(RECFM= FB HLKSIZE= 3600,LRECL=6Q) 


7% 
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_7/6CC.SYSOUT OD SYSOUTEA _ 
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BRS 
7/ CCRE(RECEMSPBELKSIZE=1890,LRECL 
gs 


“FIGOC 6 SIRTWKAZ DD UNTT=SYSDAySPACE=(TRK,(80) yRLSE,CGNTIG) 


ge ee ee as. TELUSTRATEON 1 CCONT®DD. 
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- 
J (ORCC IRC IIR RIOR ROI ZG IGE IOC CGO iio Bola iGiotok iii foi toalck ge de ak ak a ake die tea 
//®* : es ee os aye ak 


/7** SECOND ANALYSIS P&OSRAM-GENERATES SEPCRTS Ll» 23 3, 3 1/2 


x 
#/** REPORT 13 PERCENTAGE US= OF PxS INSTRUCTIONS FOR ENTIRE SYSTEM & 
//** REPORT 22. SCETWARE COMPUTER CCMPCNENT USE BY MOCE. ssi‘ “(wk 
//** REPORT 3: REJCTR USAGE IN NUMERICAL ORDER (4/SET BY) * 
//** REPORT 3 1/2: RUJCTR USAGE SY MGDE (SETS/#) * 
1 /%% 4 fe A eal chal Ae ate deat, Ae tte “al Men GAN BE ny wendel oma ineh Sd ae m per ae, wii 
Pf PRK ok Bak ok Rokk teste woke TEAK BRC 2 Bi 3 a ke ae ae a ae ake ak abe oe afc oe a ae ae ae ae fet ae ate ake i oe abe oe oe ak abe oe ok ate oe 


4/GQ EXEC PSM=RPT A,REGION=124K,T IME=3 
A/STEPLIB 11 DISP=SHRyDSN=GIM2eLOAD. _ 
7/GOsSYSPRINT Of SYSDUT=A 
//30.INST 09 OFSP=SHRy»DSN=GIM2 .MACLIB{DATTA) 

//G)Y STUFF OP UNTT=(2490) 2EFEP) sISNSGIM2.ANAL,LABEL=(,SL), 
ff TITS ?= (GLE sP 455 )y DCRR (P ECFN=&8,°LK SIZE=3600,LRECL=60), 
4/ VOL =SE2=123456 

Po eel etme aa cme Reheat hd ety att eee Soe re tans ot, es ee 
//GOE EXEC OGM=P PT By REGION= 124K, TIME= 3 

7/STEPLIB OD DISP=SHR,DSN=GIM2.LOAD 

4/G3%3e5SYSLMND DD UNIT T=SYSDA 9 SPACE=(1024,15032Co1l) 999 ROUND) __ 
J/SYSLIN OE SPACES (50, (159, 19)), UN ITT=SYSDA 
J/GOPZSIRTLIB DO OSNAME=SYS1.SORTLI3,DISP=SHR 

//GUE.SYSUTL ON UN ITS €SYSOAy SEP=( SYSLINeSORTLIBySYSLMCD)) y. . 
/f SPACF=(1924,169,590)) ; 

//GYB.SYSOUT OM SYSQUT=A 
//GCRSYSPRINT OF SYSQUTSA . ee 
//GOB.LSIRTIN NG UNTT=SYSMA,SSNS 


OTS P= (NEW, DEL ETE, CELETE), 
21)) rySPACE=(CYL (160 72 y) 
//GSE.SORTCIT DS UANITSSYSDA, OSN= 1, DISP=(NEW,DELETEAELETE), 
// DCB=(P? ECFV=FR ALKSTZE =180),LR2ECL=20) ySPACE=(CYL 7) (60 52)) 
//GOPB.SARTWKILT 9D UNIT=SYSDA,SPACE= (TRKe (1 80),RLSE»CONTIG) 
4/602. STR TWKO2 OR UNTT=SYSDA,SPACE=(TEK (390) ,RLSESCCATIG) 
7/7 GGR.SORTWKO3 OD UNIT T=SYSDA, SPATE =(TEK »( 80) sRLSE,CONTIG) 
4/695. SIRT WKNG OD UNIT=SYSOA,S PACES (TRKy (89 ),RLSEyCONTIG) 
//626. S572 TwWKOS DO UNT T=SYSOA SPACE =(TFEK,(380) »RLSEsCONTIG) 
//GCP.SORTWKOG OD UN IT=SYSDAySPACE =(TPK, E80) »RLSE CONTIG) 
7/GRAL TRANS DD DSt=GT¥2 sANAL,NIS P= (CLL, PASS ), UNIT= (2400, , DEFER ) 
1* 
7/GOC EXEC PEMERPTC,REGION= 124K, TIMG=2 
//STEPLIB OF NI SP=SHRDSN=GIM2.LGAD : 
/7G2C oSYSEMID DD UNLT=SYSDAsSPACT=(10245( 5092091) 9—RCUND) 
SASYSLIN 9% SPACE= (a9, (150, 10) ),UMTT=SYSDA 
//GOC.SIRTLIF PD DSNAME=SYS1L.SORTLIByLISP=SHR 


Se oO 


//GCC.SYSPRIAT DOL SYSQUT=A 

7/G0CeSIRTIN OP UNTT=SYSDA OSN=EE ST pDISP= (NEW sDELETE, DELETED, - 

7/ OCR= (RECEM= FBy RLKS IZE=18.90,LRECL= 20) 9 SPACE=(CY¥L9(6092)) 
fIGOT. SOPTCUT PD UNI T=SYSOA,DS N=EES Cy PIS P= (NEw, CEL ETE, DELETE), 

f/f UCB=(R ECFM=FB yPLKSIZ© =1890,LEEC L=29) ySPACE=(CYL9(6042)) 
Z/GOCASORTWKAL DD UNIT=SYS D4, SPACE=(T&Ky(80),RLSE,CONTIG) . ...... 
7/GOC. SORTRKO2 DD UNTT=SYSDA,SPACE={TRKe(39) gPLSE,COM IG) 


//GCCSORTWKOG NO UN ITHSYSNA, SPACE H(TEK,( 89) ,RLSE,CONTIG) 

//GOC. SORTRKOS DL _ UNITT=SYSOA,S PACESI(T RKs (80), RLS E, CONTIG). 2. 
7/GIC.SIRTWKOS DM UNTTS=SYSN A, SPACE =(TRK (80) »PLSE CONTIG) 
//GCO.TRANS CO CSN=GIM2 eAlWALe OITSP= (SL O,KEEP Jy UNI T=( 2400, ,OEFES} 
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ffx eee em. oa 

//*®* THIRD ANALYSIS” "PROGRAM—GENERATES REPORTS 4 THRU & 

{/¥* REPORT 4:2 SGETWARE CCMPUTTR COMPONENT USE BY COMPONENT 

//** QEPGRT S52. USE AF PWS INSTRUC TIGN BY DECK Pea 

//** REPORT 62 UST GF PwS INSTRUCTION BY INSTRUCTION 

(/** REPORT 72 EXYT POINTS FROM NECKS (FPCM/TC) 

//*#* REPORT 8: ENTRY PUINTS TO DECKS A TO/FROM). . 

Jf [ 

TPF I AR HR a ae a a a HS SCRE AE DO ae a 2 Rae a aR kc a Ee a a a Re ae Se 8 a a aka a a ae ee 


//SCELT3 DE Meh oH oh GL aa 
J1/G9 EXEC PGMERPTD yREGITCN=1 24K 9T IT ME=3 


77GB .SYSPRINT BD SYSNUTS=A f 


//GO6SYSLIN TD SPACT=(895 (159,19) ),UNTT=SYSDA 
JIGV6SYSLMT) ON UNI TH=SYSDA, SPACE=(1 124 4 (59 92% 91 )995RCUND) 
//7GOSORTLIE OM DSN=SYS1.SORTL IR sDI SP=SHR 

//GC.SYSUTL DD UNI THISYSDA sSEPHISYSLINySORTLI EG, SYSLYOLD) De. 
f/ SPACTal 1249 ( 6,60) ) 

//GC.SYSQUT CO SYSNUT=A 


/769.SORTIN 9D UNI TSSYSDA ,ISN=EESTE,OIS PH(NEW, DELETE, CEL ETE) 


£7 OC R={ RECEM=FS gPLKSTZE=1800,LA5CL=20) » SPACES(CYL (60 92)) 
J/GT.SCATSOUT OM UNIT=SYS DA, CSN= 6650, DISP=(NEW DELETE pNELE TE) » 


fi NC B={(RECEM=FR gBLKSIZE=LANNLRECL =29) gS PACEH=(CY Ls (6952)) 


J/GCSORTAKAIL DN ULITSSYSDA, SPACE HL TR K,( 89) p@ LSE yCONTIG) 
f/GO.SORTWKI2 OD UNITHSYSDA,SPACEH(TRK,( 89) RLSTe CONTIG) 


1769. S028 THKIZ DN UNTTHSYSIN SPACE S(TRK (89) »RLSE,CCONTIG). . 


—FIGOE » SIRTKKOZ OD UNI T=SYS DAS PACTSIT RKy (90), RLS E, CONTIG) . 2 


[ 


1/GCeSORTHKIS CO UN ITHSYSOA,SPACER( TRE ALBIN ALSE CONTIG) 
11590 SORTHKIS MD UNE T=SYSIA GS PACESITRKy (8994, RLS Ty CONT IG9 
//G2.S32TWKIG DD UNI TSSYSGAs SPACE=(TRK (80) sRLSE CONTIG) 
Z/GOeTPANS CO UNIT=(2490,, DEFER), DSN= CIM2 ANAL ,LABFL = sSL)» 
J/ DISPSLOLD PASS) OC B=(QECEM=ER, ALKSIZE=3690 pLRECL=60 
7/7 VOL=SER=123456 
/* | 

J/GOC EXEC PGM=ERPTE,REGION=124Ky TIME =3 

//GOFeSYSPRINT AD SYSPUTEA , a yee 
716054 SYSLYCE DD UNTT=SYSDA gS PACE= (10 24) (502 2%) L)y 99 ROUND) 
J/GIE4SYSLIM OD SPATE =(604( 1504191) ,UNTT=SYS9A 

J/GOLSAPTLIS CP ASNAMESSYSLeSO°TLIS,OISP=SHR 

7/G3F 6 SYSUTL OD UNTTSUSYSDA gS FP=(SYSLIN,SOPTL By SYSLMCO) Dy 

J7 SPACE=( 1924.1 60, $0)) 

//GO°eSYSQUT DD SYSOQUT=A __ 

71697 4 SOATIN DD UNE T=SYSOA, OSNERE ST DTS P=(NEW MELET Ey MELFTEDs 
71 DOPE (RECEM= FD, BLKS IZ E= 36004 L2ETL=18) 4 SPACE AIC YL 9 ( 8C42) I 


FIGCE gSCRECUT no. UNTT=SYSDA MS N=GES0, 01S P= (NEW, CFL ETE, DEL ETEDs . 


// OCB=(QECEMSFR pS LK SIZ© =36CO,LEECLELS) sSPACE HICYL ey (80492 )) 
J/GCEeSORTHWKAL MO UN ITHSYSMA, SPACEHTTEK 4190) -RLSE CONTIG) 


//GOESIRTWKOZ OD UNIT=SYSDA, SPACE HC TRK (50) »RLSE CONTIG) 
PAGZE STURT HW KNG OO UNITHSYS DA, SPACE=(TRK (990 ),RLSE CONTIG) 
7/6026 SORTHKNIS OD UNTT=SYSOA,SPACE=(TRK (99) gPLSE CGN IG) 
//GCESSORTWKOG OC UN TT=SYSDA, SPACE =U TRK (90) PLSE CONTIG) 
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J/G)F EXEC PGM=PPTFyRESION=124K,TI ME =3 

//COF.SYSPEINT OD SYSTITEA 

JIGOF. SYSLYCD DD UNI T=SYSDA 9S PACE= (10244 (5942091 999 ROUND) 


7/ GIF SYSLIN OD UNLT=SYSIA, SPACE =( 804(150,10)) Rao re ee re ae 
//GOF.SORTLER DE MSNAME=SYS1eSORTL 18, CISP=SHR | Zz 
JIGGE @ SYSUTL OP UNTT=CSYSOA4SEP={SYSLIN sSCRTLIBs SYSLMCD)) + ‘ 


Sf SP ACE= (19245169, 60)). 
//GOF.SYSOUT DL SYSOJT=A 
//GIQESSIRTIN OF UNI T=SYSDA DSN= Ree ia =(NEW DELETE, CELETE), 

7/ OCR (RECRM= FR, GLKS IZE=18090,LRECL=18) » SPACE= (CYL (60:21) 
J/G9F.SO2TCUT OD UT Seo sG eee eit aed beer ge re: ; 
ff DC R=(PECEMEFEP ,BLKSIZE =1890,LSESL=1 3) y SPACE=(CYL 9 (69 92)) 

_ AP GOESSIRTWKOL DO _UMITSSYSO4, SPACES (TRKy( BO) ALSE,CONTIG). ... 
J/GOF 6 SORTWKOZ ON UNTTSSYSIA,SPACE=(TRK, (S50) »RLSE,CCNT IG) 
//GOF«SORTWKO3 NE UNE T=SYSD4A, SPACE =(TRK»{ 80) »RLSF pCONTIG) 

_AIGOE.SO2TWKIG OD UNIT=SYS OA, SPACES (TRKs(89),8LS5, CONTIG) 
J/G0F oSIRTWKOS OD UNITS SYSDA, SPACE H=(TRK (89) RUSE ,CONTIG) 
J/GOFASORTWKOS OD UN IT=SYSIA,SPACT=LTPK, (80) yPLSE CONTIG) 


 FIGIESTRANS CO UNTT=(2409 9 sDEF ER) » OS N=GIM2 ANAL, CISP= (CL DyKEEP ). 
f%* 
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